home *** CD-ROM | disk | FTP | other *** search
/ DOpus Plus / DOpus Plus.iso / Themes / Windows-Converted / Movies / jamesBond.theme < prev    next >
Text File  |  1998-10-26  |  2KB  |  54 lines

  1. /* D5THEME
  2.  
  3.    Bond.theme
  4.  
  5.    Directory Opus Magellan II Theme File
  6. */
  7.  
  8. parse arg dopus_port apply_flags
  9. if dopus_port='' then
  10.     dopus_port='DOPUS.1'
  11. address value dopus_port
  12.  
  13. if apply_flags='' then
  14.     apply_flags='PFBS'
  15. else
  16.     apply_flags=upper(apply_flags)
  17.  
  18. options results
  19. options failat 21
  20.  
  21. /* Set background pictures */
  22. if index( apply_flags , "B") ~= 0 then do
  23.     dopus  set  background on
  24.     dopus  set  background "'DOPLUS:Themes/Windows/Movies/James Bond/Bond/Bond - wallpaper.bmp'" desktop center precision exact
  25.     dopus clear background lister
  26.     dopus clear background req
  27. end
  28.  
  29. /* Set sound events */
  30. if index( apply_flags , "S") ~= 0 then do
  31.     dopus  set  sound "'Bad disk inserted'" "'DOPLUS:Themes/Windows/Movies/James Bond/Bond/Bond - empty recycle bin.wav'" 64
  32.     dopus  set  sound "'Startup'" "'DOPLUS:Themes/Windows/Movies/James Bond/Bond/Bond - start.wav'" 64
  33.     dopus  set  sound "'Shutdown'" "'DOPLUS:Themes/Windows/Movies/James Bond/Bond/Bond - exit.wav'" 64
  34.     dopus  set  sound "'Hide'" "'DOPLUS:Themes/Windows/Movies/James Bond/Bond/Bond - exclamation.wav'" 64
  35.     dopus clear sound "'Reveal'"
  36.     dopus  set  sound "'Disk inserted'" "'media/chord.wav'" 64
  37.     dopus clear sound "'Disk removed'"
  38.     dopus clear sound "'Open lister'"
  39.     dopus clear sound "'Open buttons'"
  40.     dopus clear sound "'Open group'"
  41.     dopus clear sound "'Close lister'"
  42.     dopus clear sound "'Close buttons'"
  43.     dopus clear sound "'Close group'"
  44.     dopus clear sound "'FTP close connection'"
  45.     dopus  set  sound "'FTP connect fail'" "'DOPLUS:Themes/Windows/Movies/James Bond/Bond/Bond - restore down.wav'" 64
  46.     dopus  set  sound "'FTP connect success'" "'DOPLUS:Themes/Windows/Movies/James Bond/Bond/Bond - restore up.wav'" 64
  47.     dopus  set  sound "'FTP copy fail'" "'DOPLUS:Themes/Windows/Movies/James Bond/Bond/Bond - program error.wav'" 64
  48.     dopus clear sound "'FTP copy success'"
  49.     dopus clear sound "'FTP error'"
  50. end
  51.  
  52. /* Refresh Opus */
  53. dopus refresh all
  54.